home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Hy-Hyperi / HyperBBS 2.0 / Survey Stack / background_2738.xml next >
Encoding:
Extensible Markup Language  |  1992-07-14  |  3.2 KB  |  77 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2738</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3127.css" />
  10.     <part>
  11.         <id>1</id>
  12.         <type>field</type>
  13.         <visible> <true /> </visible>
  14.         <dontWrap> <false /> </dontWrap>
  15.         <dontSearch> <false /> </dontSearch>
  16.         <sharedText> <false /> </sharedText>
  17.         <fixedLineHeight> <true /> </fixedLineHeight>
  18.         <autoTab> <false /> </autoTab>
  19.         <lockText> <false /> </lockText>
  20.         <rect>
  21.             <left>0</left>
  22.             <top>0</top>
  23.             <right>512</right>
  24.             <bottom>123</bottom>
  25.         </rect>
  26.         <style>scrolling</style>
  27.         <autoSelect> <false /> </autoSelect>
  28.         <showLines> <true /> </showLines>
  29.         <wideMargins> <false /> </wideMargins>
  30.         <multipleLines> <false /> </multipleLines>
  31.         <reservedFamily> 0 </reservedFamily>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>0</icon>
  34.         <textAlign>left</textAlign>
  35.         <font>Monaco</font>
  36.         <textSize>9</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <textHeight>12</textHeight>
  39.         <name>Online Survey</name>
  40.         <script>-- long</script>
  41.     </part>
  42.     <part>
  43.         <id>2</id>
  44.         <type>field</type>
  45.         <visible> <true /> </visible>
  46.         <dontWrap> <false /> </dontWrap>
  47.         <dontSearch> <false /> </dontSearch>
  48.         <sharedText> <false /> </sharedText>
  49.         <fixedLineHeight> <true /> </fixedLineHeight>
  50.         <autoTab> <false /> </autoTab>
  51.         <lockText> <false /> </lockText>
  52.         <rect>
  53.             <left>0</left>
  54.             <top>219</top>
  55.             <right>512</right>
  56.             <bottom>342</bottom>
  57.         </rect>
  58.         <style>scrolling</style>
  59.         <autoSelect> <false /> </autoSelect>
  60.         <showLines> <true /> </showLines>
  61.         <wideMargins> <false /> </wideMargins>
  62.         <multipleLines> <false /> </multipleLines>
  63.         <reservedFamily> 0 </reservedFamily>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>0</icon>
  66.         <textAlign>left</textAlign>
  67.         <font>Monaco</font>
  68.         <textSize>9</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <textHeight>12</textHeight>
  71.         <name>Results</name>
  72.         <script>-- notThere</script>
  73.     </part>
  74.     <name></name>
  75.     <script>on doItglobal lastSurveyCard, onLineput the short name of the target into surveyResultput "no" into foundItrepeat with X = 1 to the number of lines in bg field "Results"if item 1 of line X of bg field "Results" is surveyResult thenadd 1 to item 2 of line x of bg field "Results"put "yes" into foundItexit repeatend ifend repeatif foundIt is "no" thenput surveyResult & "," & 1 & return after bg field "Results"end ifput 0 into tallyrepeat with X = 1 to the number of lines in bg field "Results"add item 2 of line X of bg field "Results" to tallyend repeatrepeat with X = 1 to the number of lines in bg field "Results"put item 1 of line x of bg field "Results" into word1put item 2 of line x of bg field "Results" into amt1put (amt1/tally) * 100 into percentageset numberFormat to "#0.##"put percentage & "% voted " & word1 & " (" & amt1 & " people)"¬¨into sendMeif onLine thensendString sendMeelseput sendMe & "..."wait until the mouseClickend ifend repeatif the id of this card is lastSurveyCard thenpop cardelsego next cardend ifend doIt</script>
  76. </background>
  77.